home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amoszine 3
/
Amoszine 3.adf
/
sticks_ext
/
sticks-demos
/
MouseSet.AMOS
/
MouseSet.amosSourceCode
< prev
next >
Wrap
AMOS Source Code
|
1992-02-26
|
601b
|
25 lines
Flash Off : Curs Off : Cls 0
Hide
Pen 1 : Paper 0
Get Sprite Palette
Colour Back Colour(0) : View
Reserve Zone 1
Set Zone 1,0,0 To 32,32
Paste Bob 0,0,3
Paste Bob 288,168,4
Locate ,10 : Centre "Click on 'Goto Jail'"
Do
X= Extension_17_00DA(0) : Y= Extension_17_00F4(0)
X1= Extension_17_00DA(1) : Y1= Extension_17_00F4(1)
MA= Extension_17_0132(0) : MA1= Extension_17_0132(1)
Sprite 0,X,Y,1
Sprite 2,X1,Y1,2
If MA=1 and Extension_17_011E(0)>0
Extension_17_00C8 0,425
Extension_17_00E2 0,226
End If
If MA1=1 and Extension_17_011E(1)>0
Extension_17_00C8 1,425
Extension_17_00E2 1,226
End If
Loop